home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / expand53.zip / XPDEMO.ZIP / XPBROWSE.PRG < prev    next >
Text File  |  1992-08-07  |  1KB  |  31 lines
  1. * ------------------------------------------------------------------------
  2. * Module......:    XPBROWSE.PRG
  3. * Title.......: BROWSE part of the Expand Library Demonstration Program
  4. * Author......:    Pepijn Smits.
  5. * Date........:    July/August 1992
  6. * Copyright...:    (c)1992 by Softwarebureau Pepijn Smits
  7. * Notes.......:    Clipper 5.01 Demo of the Expand Library
  8. *        Some general BROWSE functions
  9. *        See XPDEMO.RMK For Compile and Link instructions.
  10. * ------------------------------------------------------------------------
  11.  
  12. Function XPbrowse(cTitle,cHeader,abData)
  13. NormColor()
  14. @ 1,0 clear to MaxRow()-1,MaxCol()
  15. @ 1,0 to maxRow()-1, MaxCol() DOUBLE
  16. XPcenter(1,cTitle)
  17. @ 3,0 say '╟'+replicate('─',MaxCol()-1)+'╢'
  18. @ 2,1 say space(MaxCol()-1)
  19. XPdisplay(2,1,cHeader)
  20. Return (XPmouseChoice(4,1,MaxRow()-2,MaxCol()-1,abData))
  21.  
  22. Function XPedit(cTitle,cHeader,bFld,bTrap)
  23. NormColor()
  24. @ 1,0 clear to MaxRow()-1,MaxCol()
  25. @ 1,0 to maxRow()-1, MaxCol() DOUBLE
  26. XPcenter(1,cTitle)
  27. @ 3,0 say '╟'+replicate('─',MaxCol()-1)+'╢'
  28. @ 2,1 say space(MaxCol()-1)
  29. XPdisplay(2,1,cHeader)
  30. Return ( XPmouseEdit(4,1,MaxRow()-2,MaxCol()-1,NIL,bFld,bTrap)<>0 )
  31.